home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / ntsp3 / nt4sp3_i.exe / [0] / pscript.dll / 259 / 3 < prev    next >
Text File  |  1997-05-01  |  4KB  |  63 lines
  1.  
  2. %%BeginResource: file Adobe_WinNT_Pattern 2.0 0
  3. /SavedCTM null def/CTMsave{/SavedCTM SavedCTM currentmatrix def}b/CTMrestore
  4. {SavedCTM setmatrix}b/mp null def/GDIBWPatternDict 18 dict dup begin
  5. /PatternType 1 def/PaintType L2?{1}{2}ifelse def/RepsV L2?{1}{6}ifelse def
  6. /RepsH L2?{1}{5}ifelse def/BBox[0 0 RepsH 1]def/TilingType 1 def/XStep 1 def
  7. /YStep 1 def/Height null def/Width null def/mx null def/FGnd null def/BGnd null
  8. def/SetBGndFGnd L2?{{BGnd null ne{BGnd aload pop sgco BBox aload pop 2 index
  9. sub exch 3 index sub exch rf}if FGnd null ne{FGnd aload pop sgco}if}}{{}}ifelse
  10. b/PaintProc{begin SetBGndFGnd RepsH{Width Height false mx PaintData imagemask
  11. Width 0 translate}repeat end}b end def/GDIBWPatternMx null def/pfprep{save 6 1
  12. roll/PatternOfTheDay 6 1 roll GDIBWPatternDict begin/PaintData exch def/yExt
  13. exch def/Width exch def/BGnd exch def/FGnd exch def/Height yExt RepsV mul def
  14. /mx[Width 0 0 Height 0 0]def end gsave GDIBWPatternDict begin Width Height end
  15. dsnap scale/GDIBWPatternMx matrix currentmatrix def grestore CTMsave
  16. GDIBWPatternMx setmatrix GDIBWPatternDict 0 8 matrix translate mp CTMrestore
  17. exch pop}b/hrf null def/prf{pfprep exch 6 1 roll 5 hrf restore}b/GraphInit
  18. {GDIBWPatternMx null eq{/SavedCTM matrix def gsave ADO_mxRot concat grestore}
  19. if}b 
  20. %%EndResource
  21.  
  22. %%BeginResource: file Adobe_WinNT_Pattern_L1 2.0 0
  23. L2? not DefIf_B{/GDIpattfill{dup begin BGnd null ne PaintType 2 eq and{gsave
  24. BGnd aload pop sgco fEOFill{eofill}{fill}ifelse grestore FGnd aload pop
  25. userdict/fGray 2 index put{2}{4}ifelse -1 roll}if end dup patterncalc gsave 4
  26. index/PaintType get 2 eq{fGray{6 -1 roll sg}{8 -3 roll sco}ifelse}if fEOFill
  27. {eoclip}{clip}ifelse newpath patternfill grestore newpath}b/hrf{/fGray 1 index
  28. 6 eq def -4 roll newpath rp closepath/fEOFill false def GDIpattfill}b/mpstr 10
  29. string def/mp{exch dup length 12 add dict copy begin/PatternCTM matrix
  30. currentmatrix def/PatternMatrix exch def/PatWidth XStep mpstr length mul def
  31. /PatHeight YStep def/FontType 3 def/Encoding 256 array def 3 string 0 1 255
  32. {Encoding exch dup 3 index cvs cvn put}for pop/FontMatrix matrix def/FontBBox
  33. BBox def/BuildChar{pop dup begin XStep 0 FontBBox aload pop setcachedevice
  34. /PaintProc load end gsave exec grestore}b currentdict end exch dup 3 -1 roll
  35. definefont}b/patterncalc{begin gsave PatternCTM setmatrix PatternMatrix concat
  36. BBox aload pop pop pop translate pathbbox grestore PatHeight div ceiling 4 1
  37. roll PatWidth div ceiling 4 1 roll PatHeight div floor 4 1 roll PatWidth div
  38. floor 4 1 roll 2 index sub cvi abs exch 3 index sub cvi abs exch 4 2 roll
  39. PatHeight mul exch PatWidth mul exch end}b/patternfill{5 -1 roll dup begin
  40. setfont PatternCTM setmatrix PatternMatrix concat 0 2 index 2 index M 0 1 mpstr
  41. length 1 sub{1 index mpstr 3 1 roll put}for pop 2 index{currentpoint 5 index
  42. {mpstr show}repeat YStep add M}repeat pop pop pop pop end}b}DefIf_E 
  43. %%EndResource
  44.  
  45. %%BeginResource: file Adobe_WinNT_Pattern_L2 2.0 0
  46. L2? DefIf_B{/mp/makepattern load def/hrf{6 eq setAorABC setpattern rectfill}b}
  47. DefIf_E 
  48. %%EndResource
  49.  
  50. %%BeginResource: file WinNT_Bitmap_Pattern_Brush 1.0 0
  51. L2? DefIf_B{/pbf{gsave 25 dict begin/_e{exch def}bind def/_fp _e/_eo _e/_h _e
  52. /_w _e/_b _e/_r _e/_t _e/_l _e/_p _e/_s _e/_i[1 0 0 1 0 0]def/PatternType 1 def
  53. /PaintType 1 def/TilingType 1 def/BBox[0 0 _w _h]def/XStep _w def/YStep _h def
  54. /PaintProc{pop _p}def currentdict _i makepattern setpattern _fp not{newpath _l
  55. _t moveto _r _t lineto _r _b lineto _l _b lineto closepath}if _eo{eofill}{fill}
  56. ifelse end grestore}bind def}DefIf_El{/pbf{gsave 15 dict begin/_e{exch def}bind
  57. def/_fp _e/_eo _e/_h _e/_w _e/_b _e/_r _e/_t _e/_l _e/_p _e/_s _e/_i[1 0 0 1 0
  58. 0]def _fp{_eo{eoclip}{clip}ifelse}{newpath _l _t moveto _r _t lineto _r _b
  59. lineto _l _b lineto closepath clippath}ifelse _t _h _b 1 sub{_l _w _r 1 sub{1
  60. index 2 copy translate _p neg exch neg exch translate}bind for pop}bind for end
  61. grestore}bind def}DefIf_E 
  62. %%EndResource
  63.